COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.MACRO MARGINS (εmheight,εmwidth,εLEFT,εRIGHT,εTOP,εBOTTOM)  ⊂ BEGIN SELECT 1
C00004 ENDMK
C⊗;
.MACRO MARGINS (εmheight,εmwidth,εLEFT,εRIGHT,εTOP,εBOTTOM)  ⊂ BEGIN SELECT 1;
.    VARIABLE PAGE_HEIGHT, PAGE_WIDTH;
.    page_height←(IF mheight>0 THEN mheight else 11000);
.    page_width←(IF mwidth>0 THEN mwidth else 8500);
.    evenleftborder←oddleftborder←(IF LEFT≥0 THEN LEFT ELSE 1500);
.    rightborder←(IF RIGHT≥0 THEN RIGHT ELSE 1000);
.    topborder←(IF TOP≥0 THEN TOP ELSE 1000);
.    bottomborder←(IF BOTTOM≥0 THEN BOTTOM ELSE 500);
.
.    PAGE_WIDTH←(((page_width-ODDLEFTBORDER-RIGHTBORDER)*HBPI)/1000)/CHARW;
.    PAGE_HEIGHT←(((page_height-TOPBORDER-BOTTOMBORDER)*VBPI)/1000)/CHARH;
.
.    !XGPCOMMANDS←"/TMAR="&((topborder*vbpi)/1000);
.    PAGE FRAME PAGE_WIDTH WIDE PAGE_HEIGHT HIGH
.    TITLE AREA HEADING LINES 1 TO 3
.    AREA TEXT LINES 4 TO PAGE_HEIGHT-3
.    END ⊃;
.  margins(11000,4250,400,400,400,400);